-- card: 2971 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2754
-- name: Console
----- HyperTalk script -----
on returnKey
  global thePort
  sendData thePort, message box & return
  put empty into msg
end returnKey

-- —————————————
on idle
  global thePort
  repeat while the number of lines of cd field "console" > 20
    delete line 1 of cd field "console"
  end repeat
  put getBuffer(thePort) after cd field "console"
end idle


-- part 1 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=13 top=33 right=287 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: console


-- part 3 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=12 top=7 right=29 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Settings...
----- HyperTalk script -----
on mouseUp
  go to cd "Settings"
  hide the message box
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=117 top=7 right=29 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kermit Send...
----- HyperTalk script -----
on mouseUp
  global thePort
  kermit "send", thePort
  if the result contains "Kermit error" then
    put the result into theErr
    delete word 1 to 2 of theErr
    answer theErr
  else
    answer "Sent file" && the result
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=228 top=7 right=29 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kermit Receive...
----- HyperTalk script -----
on mouseUp
  global thePort
  kermit "receive", thePort
  if the result contains "Kermit error" then
    put the result into theErr
    delete word 1 to 2 of theErr
    answer theErr
  else
    answer "Received file" && the result
  end if
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=409 top=7 right=29 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: +++
----- HyperTalk script -----
on mouseUp
  global thePort
  sendAttn thePort
  if the result contains "error" then answer the result
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=358 top=7 right=29 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go to cd "Console Help"
  hide the message box
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=451 top=7 right=29 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  doMenu "Quit HyperCard"
end mouseUp